Attribute VB_Name = "modSendPacket"
Public Sub sendPacket(ByVal ID As Byte, ByVal data As String)
  'frmChat.sckVectorNet.SendData Chr$(ID) & data
  frmChat.sckVectorNet.SendData Chr$(ID) & Len(data) & Chr$(0) & data
End Sub
